SSTACK SEGMENt STACK
       
       DB 100 DUP(?)
SSTACK ENDS

DATA  SEGMENT

AM   DB 01h,
BM   DW 2345h
CM   DW 6789h

DATA ENDS

CODE SEGMENT

MAIN PROC FAR
    ASSUME CS:CODE DS:DATA SS:SSTACK

START: PUSH DS
       XOR  AX,AX
       PUSH AX
       MOV AX,DATA
       MOV DS,AX

       MOV CH,AM
       MOV DX,BM
       MOV AX,CM

       MOV BH,CH
       SHL BH,1
       RCL AX,1
       RCL DX,1
       RCL CH,1
       RCL AX,1
       RCL DX,1
       RCL CH,1
       RCL AX,1
       RCL DX,1
       RCL CH,1
       RCL AX,1
       RCL DX,1
       RCL CH,1


       RET

MAIN ENDP
CODE ENDS
     END START


       
    